home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 6-Apple⁄DEC Alliance / Solutions & Networking Guide / Macintosh Networking Guide / Macintosh Networking Guide / background_2585.txt < prev    next >
Text File  |  1990-04-17  |  8KB  |  394 lines

  1. -- background: 2585 from stack: in
  2. -- bmap block id: 8247
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Lobby
  6. ----- HyperTalk script -----
  7. on CloseCard
  8.   put empty into fld "Tell"
  9. end CloseCard
  10.  
  11.  
  12.  
  13.  
  14. -- part 20 (button)
  15. -- low flags: 80
  16. -- high flags: 0000
  17. -- rect: left=0 top=0 right=342 bottom=512
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Shield
  26. ----- HyperTalk script -----
  27. on mouseEnter
  28.   global Help
  29.   if Help is true then
  30.     Set lockscreen to true
  31.     hide field "Explainer"
  32.     put empty into field "Explainer"
  33.     unlock screen with dissolve fast
  34.   end if
  35. end mouseEnter
  36.  
  37. on Poof
  38.   global Help
  39.   if Help is true then
  40.     Set lockscreen to true
  41.     hide field "Explainer"
  42.     put empty into field "Explainer"
  43.     unlock screen with dissolve fast
  44.   end if
  45. end Poof
  46.  
  47.  
  48. -- part 14 (button)
  49. -- low flags: 00
  50. -- high flags: 2002
  51. -- rect: left=385 top=303 right=342 bottom=428
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 18849 / 18849
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Lobby
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   set lockscreen to true
  63.   set cursor to busy
  64.   push card
  65.   unlock screen with dissolve
  66.   go to cd "Lobby"
  67. end mouseUp
  68.  
  69. on mouseEnter
  70.   changeCurs 6069
  71.   put "Lobby Button" & return & "use building navigation" into fld "Tell"
  72. end mouseEnter
  73.  
  74. On mouseDown
  75.   global ButtonSND
  76.   play ButtonSND
  77. End mouseDown
  78.  
  79. on mouseLeave
  80.   put empty into fld "Tell"
  81.   changeCurs 69
  82. end mouseLeave
  83.  
  84.  
  85. -- part 18 (field)
  86. -- low flags: 81
  87. -- high flags: 0002
  88. -- rect: left=143 top=43 right=128 bottom=382
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 1
  92. -- font id: 3
  93. -- text size: 10
  94. -- style flags: 0
  95. -- line height: 12
  96. -- part name: Explainer
  97. ----- HyperTalk script -----
  98. on mouseDown
  99.   hide me
  100.   put empty into me
  101. end mousedown
  102.  
  103. on mouseWithin
  104.   put "This explanation note covers the Diagram mural behind it.  " & return & "The Diagram Button will take you to a network " & "configuration excercise.  Clicking on this note will reveal " & "that diagram again, " into me
  105. end mousewithin
  106.  
  107.  
  108. -- part 21 (field)
  109. -- low flags: 01
  110. -- high flags: 0001
  111. -- rect: left=172 top=307 right=339 bottom=340
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 1
  115. -- font id: 242
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: Tell
  120. ----- HyperTalk script -----
  121. on mouseEnter
  122.   put "Message Field" & return & "displays help information" into fld "Tell"
  123. end mouseEnter
  124.  
  125. on mouseLeave
  126.   put empty into fld "Tell"
  127. end mouseLeave
  128.  
  129.  
  130. -- part 23 (button)
  131. -- low flags: 00
  132. -- high flags: 2002
  133. -- rect: left=42 top=303 right=342 bottom=85
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 21375 / 21375
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: Outline mode
  142. ----- HyperTalk script -----
  143. on mouseEnter
  144.   changeCurs 6069
  145.   put "Briefing Button" & return & "click to go to briefing room" into fld "Tell"
  146. end mouseEnter
  147.  
  148. on mouseUp
  149.   set lockscreen to true
  150.   push card
  151.   go to cd "Briefing Room"
  152.   unlock screen with dissolve
  153.   pass mouseUp
  154. end mouseUp
  155.  
  156. On mouseDown
  157.   global ButtonSND
  158.   play ButtonSND
  159. End mouseDown
  160.  
  161. on mouseLeave
  162.   put empty into fld "Tell"
  163.   changeCurs 69
  164. end mouseLeave
  165.  
  166.  
  167. -- part 27 (button)
  168. -- low flags: 00
  169. -- high flags: 2002
  170. -- rect: left=427 top=303 right=342 bottom=470
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 30492 / 30492
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: Kiosk
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   set cursor to busy
  182.   push card
  183.   visual effect dissolve
  184.   go to cd "Matrix"
  185. end mouseUp
  186.  
  187. on mouseEnter
  188.   ChangeCurs 6069
  189.   put "Matrix Button" & return & "use matrix navigation" into fld "Tell"
  190. end mouseEnter
  191.  
  192. On mouseDown
  193.   global ButtonSND
  194.   play ButtonSND
  195. End mouseDown
  196.  
  197. on mouseLeave
  198.   put empty into fld "Tell"
  199.   changeCurs 69
  200. end mouseLeave
  201.  
  202.  
  203.  
  204. -- part 29 (button)
  205. -- low flags: 00
  206. -- high flags: 2002
  207. -- rect: left=469 top=303 right=342 bottom=512
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 9301 / 9301
  210. -- text alignment: 1
  211. -- font id: 0
  212. -- text size: 12
  213. -- style flags: 0
  214. -- line height: 16
  215. -- part name: GoBack
  216. ----- HyperTalk script -----
  217. on mouseUp
  218.   set lockscreen to true
  219.   set cursor to busy
  220.   go Back
  221.   unlock screen with visual effect wipe right
  222. end mouseUp
  223.  
  224. on mouseEnter
  225.   changeCurs 6069
  226.   put "Go Back Button" & return & "click to go to prev card" into fld "Tell"
  227. end mouseEnter
  228.  
  229. On mouseDown
  230.   global ButtonSND
  231.   play ButtonSND
  232. End mouseDown
  233.  
  234. on mouseLeave
  235.   changeCurs 69
  236.   put empty into fld "Tell"
  237. end mouseLeave
  238.  
  239.  
  240. -- part 33 (button)
  241. -- low flags: 00
  242. -- high flags: 2002
  243. -- rect: left=0 top=303 right=342 bottom=43
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 10112 / 10112
  246. -- text alignment: 1
  247. -- font id: 0
  248. -- text size: 12
  249. -- style flags: 0
  250. -- line height: 16
  251. -- part name: EXIT
  252. ----- HyperTalk script -----
  253. on mouseEnter
  254.   changeCurs 6069
  255.   put "Exit Button" & return & "click to quit or go home" into fld "Tell"
  256. end mouseEnter
  257.  
  258. on mouseUp
  259.   set lockscreen to true
  260.   answer "Would you like to Quit, go Home, or Cancel" with "Quit" or "Home" or "Cancel"
  261.   unlock screen with dissolve
  262.   set lockscreen to true
  263.   if it is "Quit" then doMenu "Quit HyperCard"
  264.   if it is "Home" then
  265.     domenu Home
  266.   end if
  267.   unlock screen with dissolve
  268. end mouseUp
  269.  
  270. On mouseDown
  271.   global ButtonSND
  272.   play ButtonSND
  273. End mouseDown
  274.  
  275. on mouseLeave
  276.   put empty into fld "Tell"
  277.   changeCurs 69
  278. end mouseLeave
  279.  
  280.  
  281. -- part 34 (button)
  282. -- low flags: 00
  283. -- high flags: 2002
  284. -- rect: left=343 top=303 right=342 bottom=386
  285. -- title width / last selected line: 0
  286. -- icon id / first selected line: 1409 / 1409
  287. -- text alignment: 1
  288. -- font id: 0
  289. -- text size: 12
  290. -- style flags: 0
  291. -- line height: 16
  292. -- part name: Outliner
  293. ----- HyperTalk script -----
  294. on mouseUp
  295.   global Mack,Host
  296.   set cursor to busy
  297.   set the lockscreen to true
  298.   put true into Mack
  299.   put false into Host
  300.   go to cd "Outliner"
  301.   send mouseUp to cd btn "macSwitch"
  302.   unlock screen with dissolve
  303. end mouseUp
  304.  
  305. on mouseEnter
  306.   ChangeCurs 6069
  307.   put "Outliner Button" & return & "use outline navigation" into fld "Tell"
  308. end mouseEnter
  309.  
  310. On mouseDown
  311.   global ButtonSND
  312.   play ButtonSND
  313. End mouseDown
  314.  
  315. on mouseLeave
  316.   put empty into fld "Tell"
  317.   changeCurs 69
  318. end mouseLeave
  319.  
  320.  
  321.  
  322. -- part 35 (button)
  323. -- low flags: 00
  324. -- high flags: 2002
  325. -- rect: left=126 top=303 right=342 bottom=169
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 1007 / 1007
  328. -- text alignment: 1
  329. -- font id: 0
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: Printer
  334. ----- HyperTalk script -----
  335. on mouseUp
  336.   set cursor to busy
  337.   print card
  338. end mouseUp
  339.  
  340. on mouseEnter
  341.   changeCurs 6069
  342.   put "Printer Button" & return & "click to print this image" into fld "Tell"
  343. end mouseEnter
  344.  
  345. On mouseDown
  346.   global ButtonSND
  347.   play ButtonSND
  348. End mouseDown
  349.  
  350. on mouseLeave
  351.   put empty into fld "Tell"
  352.   changeCurs 69
  353. end mouseLeave
  354.  
  355.  
  356. -- part 36 (button)
  357. -- low flags: 00
  358. -- high flags: 2002
  359. -- rect: left=84 top=303 right=342 bottom=127
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 20358 / 20358
  362. -- text alignment: 1
  363. -- font id: 0
  364. -- text size: 12
  365. -- style flags: 0
  366. -- line height: 16
  367. -- part name: Glossary
  368. ----- HyperTalk script -----
  369. on mouseEnter
  370.   put "Glossary Button" & return & "click to go to the glossary" into fld "Tell"
  371.   changeCurs 6069
  372. end mouseEnter
  373.  
  374. on mouseleave
  375.   put empty into fld "Tell"
  376.   changeCurs 69
  377. end mouseLeave
  378.  
  379. on mouseUp
  380.   set cursor to busy
  381.   get short name of this card
  382.   if it is "Outliner" then clearF
  383.   push card
  384.   visual effect iris open
  385.   go cd "glossary"
  386. end mouseUp
  387.  
  388. On mouseDown
  389.   global ButtonSND
  390.   play ButtonSND
  391. End mouseDown
  392.  
  393.  
  394.